unit FormUserList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FrameUserList;

type
  TfrmUserList = class(TForm)
  private
    { Private declarations }
    Frame :  TfrmeUserList;
  public
    { Public declarations }
    constructor Create(AOwner : TComponent; fid_role : integer); reintroduce;
    destructor destroy; override;
  end;

var
  frmUserList: TfrmUserList;

implementation

{$R *.dfm}

constructor TfrmUserList.Create(AOwner : TComponent; fid_role : integer);
begin
  inherited Create(AOwner);
  Frame :=  TfrmeUserList.Create(self, fid_role);
  Frame.Parent := self;
end;


destructor TfrmUserList.destroy;
begin
  Frame.Parent := nil;
  Frame.Free;
  Frame := nil;
  inherited;
end;

end.
